home *** CD-ROM | disk | FTP | other *** search
/ Maclife 13 / MACLIFE13-No-93-1996.ISO.7z / MACLIFE13-No-93.ISO / ROOKIE MOUSE / こわくないMovie / SHARED.DIR / 00512_Script_512 < prev   
Text File  |  1995-12-07  |  1KB  |  54 lines
  1. on initRearWindow theColor
  2.   global rwObj
  3.   if objectP( rwObj ) then rwObj( mDispose )
  4.   put RearWindow( mNew, "M" ) into rwObj
  5.   rwObj( mIndexColorToWindow, theColor )
  6. end
  7.  
  8. on disposeRearWindow
  9.   global rwObj
  10.   if objectP( rwObj ) then rwObj( mDispose )   
  11. end 
  12.  
  13. on startMovie
  14.   global CDep
  15.   initRearWindow 255
  16.   put  the colorDepth into CDep
  17.   set the colorDepth to 8
  18. end
  19.  
  20. on stopMovie
  21.   global CDep
  22.   set the colorDepth to CDep
  23.   disposeRearWindow
  24.   cursor 0
  25. end
  26.  
  27.  
  28. on mycursorSET
  29.   set myCursor1 to [501,502]
  30.   set myCursor2 to [503,504]
  31.   cursor  myCursor2
  32.   set the cursor of sprite 2 to myCursor1
  33.   set the cursor of sprite 3 to myCursor1
  34.   set the cursor of sprite 4 to myCursor1
  35.   set the cursor of sprite 5 to myCursor1
  36.   set the cursor of sprite 6 to myCursor1
  37.   set the cursor of sprite 28 to myCursor1
  38.   set the cursor of sprite 29 to myCursor1
  39.   set the cursor of sprite 31 to myCursor2
  40. end
  41.  
  42. on mycursorCAN
  43.   set myCursor1 to [501,502]
  44.   set myCursor2 to [503,504]
  45.   cursor  myCursor2
  46.   set the cursor of sprite 2 to myCursor2
  47.   set the cursor of sprite 3 to myCursor2
  48.   set the cursor of sprite 4 to myCursor2
  49.   set the cursor of sprite 5 to myCursor2
  50.   set the cursor of sprite 6 to myCursor2
  51.   set the cursor of sprite 28 to myCursor2
  52.   set the cursor of sprite 29 to myCursor2
  53.   set the cursor of sprite 31 to myCursor2
  54. end